home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).do / BIRTHDAY.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  75 lines
  1. 1  REM  <CTRL-A>APPLE BIRTHDAY CARD         DAVID CARSE  MAY 82         *******************
  2. 2 D$ =  CHR$(132)
  3. 4  PRINT D$;"BLOAD PLAYER,A768"
  4. 6  PRINT D$;"BLOAD M.BIRTHDAY,A24576"
  5. 8  HOME : INPUT "YOUR NAME? ";YN$: PRINT : PRINT "FIRST NAME OF PERSON HAVING BIRTHDAY?": INPUT N$: PRINT : INPUT "WHAT AGE? ";A
  6. 10  HOME : PRINT "PRESS ANY KEY TO BEGIN.": GET Z$
  7. 20  HOME : VTAB 8: INVERSE : PRINT "     HAPPY  BIRTHDAY  ";N$;" !!     ": NORMAL 
  8. 22  FOR W = 1 TO 1000: NEXT W
  9. 25  POKE 30,0
  10. 28  POKE 31,96
  11. 30  CALL 768
  12. 32  HOME : GR :S =  -16336:T = 0
  13. 34  INVERSE 
  14. 35  PRINT "     HAPPY  BIRTHDAY  ";N$;" !!      "
  15. 45  NORMAL 
  16. 54  COLOR= 15
  17. 55  HLIN 0,39 AT 0
  18. 60  VLIN 0,39 AT 39
  19. 65  HLIN 39,0 AT 39
  20. 70  VLIN 39,0 AT 0
  21. 80  GOTO 500
  22. 100  FOR X = 38 TO 10  STEP  -1
  23. 110  COLOR= 9
  24. 120  PLOT Y,X
  25. 125  FOR W = 1 TO 30: NEXT W
  26. 130  COLOR= 0
  27. 140  PLOT Y,X
  28. 150  NEXT X
  29. 160  COLOR= 9
  30. 170  PLOT Y +1,X +1: PLOT Y -1,X +1
  31. 172  PLOT Y +1,X -2: PLOT Y -1,X -2
  32. 174 SOUND =  PEEK(S) - PEEK(S) + PEEK(S)
  33. 180  FOR W = 1 TO 100: NEXT W
  34. 190  COLOR= 0
  35. 195  PLOT Y +1,X +1: PLOT Y -1,X +1
  36. 198  PLOT Y +1,X -2: PLOT Y -1,X -2
  37. 200  COLOR= 13
  38. 210  PLOT Y +2,X +2: PLOT Y -2,X +2
  39. 212  PLOT Y +2,X -1: PLOT Y -2,X -1
  40. 215 SOUND =  PEEK(S) - PEEK(S) + PEEK(S)
  41. 220  FOR W = 1 TO 100: NEXT W
  42. 230  COLOR= 0
  43. 235  PLOT Y +2,X +2: PLOT Y -2,X +2
  44. 238  PLOT Y +2,X -1: PLOT Y -2,X -1
  45. 240  COLOR= 3
  46. 250  PLOT Y +3,X +3: PLOT Y -3,X +3
  47. 251  PLOT Y +3,X: PLOT Y -3,X
  48. 252 SOUND =  PEEK(S) - PEEK(S) + PEEK(S)
  49. 255  FOR W = 1 TO 100: NEXT W
  50. 260  COLOR= 0
  51. 265  PLOT Y +3,X +3: PLOT Y -3,X +3
  52. 268  PLOT Y +3,X: PLOT Y -3,X
  53. 270  COLOR= 7
  54. 275  PLOT Y +4,X +4: PLOT Y -4,X +4
  55. 276  PLOT Y +4,X +1: PLOT Y -4,X +1
  56. 277 SOUND =  PEEK(S) - PEEK(S) + PEEK(S)
  57. 280  FOR W = 1 TO 100: NEXT W
  58. 285  COLOR= 0
  59. 290  PLOT Y +4,X +4: PLOT Y -4,X +4
  60. 292  PLOT Y +4,X +1: PLOT Y -4,X +1
  61. 295 T = T +1: INVERSE : PRINT " ";T;" ": NORMAL : VTAB  PEEK(37)
  62. 300  RETURN 
  63. 500  REM 
  64. 510 Y = 8: GOSUB 100: IF T > = A GOTO 530
  65. 512 Y = 29: GOSUB 100: IF T > = A GOTO 530
  66. 514 Y = 15: GOSUB 100: IF T > = A GOTO 530
  67. 516 Y = 20: GOSUB 100: IF T > = A GOTO 530
  68. 520  GOTO 510
  69. 530  FOR W = 1 TO 1000: NEXT W: TEXT : HOME : VTAB 8
  70. 535  INVERSE 
  71. 540  HTAB 10: PRINT "                  "
  72. 550  HTAB 10: PRINT " HAVE A NICE DAY! "
  73. 552  HTAB 10: PRINT "                  "
  74. 555  NORMAL 
  75. 560  PRINT : PRINT : PRINT : PRINT : HTAB 10: PRINT "- FROM ";YN$: HTAB 10: PRINT "  AND YOUR FRIENDLY APPLE": END